10 REM FRAMEMAKER....ELIZABETH DEAL
20 F$=CHR$(157)+CHR$(148)
30 TB$="***************************************":REM 39* IN ""
35 TB$=TB$+CHR$(145)+CHR$(13)+CHR$(148)+"*"
40 MD$="*                                     *"+F$:REM *,37 SPACES,* IN ""
50 PRINTTB$:REM TOP LINE
60 FOR J=1 TO 23:PRINTMD$:NEXT J:REM MIDDLE
70 PRINTTB$;"";:REM BOTTOM
80 REM HOME IS USEFUL FROM BOTTOM LINE
90 PRINT"LINES":REM 5 DOWN IN ""